respuesta = InputBox("Introduzca valor" & Chr(13) & "para continuar" & Chr(13) & _ 
    "el proceso:", _
    "Ttulo de pruebas", _
    "MiValor", XPos:=1000, YPos:=5000)
